home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 03 - 1987 / 03.04 Apr 87 / turbo bug / LS turbo bug.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-03-09  |  220 b   |  13 lines  |  [TEXT/PJMM]

  1. PROGRAM divbyzero;
  2.  
  3.     VAR
  4.         thenbr, zero : integer;
  5.  
  6. BEGIN
  7.     showtext;
  8.     zero := 0;
  9.     thenbr := 0 DIV zero;
  10.     writeln(thenbr);
  11.     thenbr := 1 DIV zero; {causes system crash ID=04. Resume then traps error}
  12.     writeln(thenbr);
  13. END.